Remove unused declarations.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c246635258f8df2a6f7ed7426ee0611743aa3b4..f10abfb6b700c0e03520ca32108e97714a75bb78 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,6 +7,13 @@
        (check-declare-directory): Doc fix.
        * subr.el (declare-function): Doc fix.
 
+       * ibuffer.el (ibuffer-format-qualifier):
+       * isearch.el (hi-lock-regexp-okay):
+       * calc/calc.el (math-zerop):
+       * mail/uce.el (rmail-msgbeg, rmail-msgend):
+       * term/w32-win.el (setup-default-fontset, set-fontset-font):
+       Remove unused declarations.
+
 2009-10-01  Juanma Barranquero  <lekktu@gmail.com>
 
        * cedet/semantic/wisent/javat-wy.el

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index d38d6b7dbdebe76d08eb01812bcdfc0644f3850a..75a08d7e79b9ac639c15e29552e69d95d9ea2d98 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -185,7 +185,6 @@
 (declare-function calc-incomplete-error "calc-incom" (a))
 (declare-function math-float-fancy "calc-arith" (a))
 (declare-function math-neg-fancy "calc-arith" (a))
-(declare-function math-zerop "calc-misc" (a))
 (declare-function calc-add-fractions "calc-frac" (a b))
 (declare-function math-add-objects-fancy "calc-arith" (a b))
 (declare-function math-add-symb-fancy "calc-arith" (a b))

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index e3693c443ccd52255c31fbeb2a1dbaac5396639c..13085f646d3ba8ebd5180413e29724a53d47df99 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -56,7 +56,6 @@
 
 (declare-function ibuffer-mark-on-buffer "ibuf-ext"
                  (func &optional ibuffer-mark-on-buffer-mark group))
-(declare-function ibuffer-format-qualifier "ibuf-ext" (qualifier))
 (declare-function ibuffer-generate-filter-groups "ibuf-ext"
                  (bmarklist &optional noempty nodefault))
 (declare-function ibuffer-format-filter-group-data "ibuf-ext" (filter))

diff --git a/lisp/isearch.el b/lisp/isearch.el
index bf2f0738d977d56d2b2be643934d831e0c968b6a..95e45c7e58ed7b6e6093fbdaaaff17bb1e41443e 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1401,7 +1401,6 @@ string.  NLINES has the same meaning as in `occur'."
        (search-upper-case nil))
     (occur regexp nlines)))
 
-(declare-function hi-lock-regexp-okay "hi-lock" (regexp))
 (declare-function hi-lock-read-face-name "hi-lock" ())
 
 (defun isearch-highlight-regexp ()

diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 2d7122775ffb2755a5a4599833deb8522882b4c1..e1cd30ee795daf922defa268ea390a4a6d8f7df9 100644 (file)
--- a/lisp/mail/uce.el
+++ b/lisp/mail/uce.el
@@ -219,8 +219,6 @@ These are mostly meant for headers that prevent delivery errors reporting."
 (declare-function rmail-msg-is-pruned "rmail" ())
 (declare-function mail-strip-quoted-names "mail-utils" (address))
 (declare-function rmail-maybe-set-message-counters "rmail" ())
-(declare-function rmail-msgbeg "rmail" (n))
-(declare-function rmail-msgend "rmail" (n))
 (declare-function rmail-toggle-header "rmail" (&optional arg))
 
 ;;;###autoload

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 28940802ab36e0c7dc16bc3441df6f239d5dfe65..b9683f3a9324390df5f1f1ffa7e3f21d0366550d 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -1,7 +1,7 @@
 ;;; w32-win.el --- parse switches controlling interface with W32 window system
 
-;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Kevin Gallo
 ;; Keywords: terminals
@@ -166,11 +166,11 @@ the last file dropped is selected."
  ;;; navigation feature.
  (defun w32-menu-bar-open (&optional frame)
    "Start key navigation of the menu bar in FRAME.
- 
+
 This initially activates the first menu-bar item, and you can then navigate
 with the arrow keys, select a menu entry with the Return key or cancel with
 the Escape key.  If FRAME has no menu bar, this function does nothing.
- 
+
 If FRAME is nil or not given, use the selected frame.
 If FRAME does not have the menu bar enabled, display a text menu using
 `tmm-menubar'."
@@ -218,11 +218,6 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
 
 (declare-function x-open-connection "w32fns.c"
                   (display &optional xrm-string must-succeed))
-
-(declare-function setup-default-fontset "fontset" ())
-(declare-function set-fontset-font "fontset.c"
-                  (name target font-spec &optional frame add))
-(declare-function setup-default-fontset "fontset" ())
 (declare-function create-fontset-from-fontset-spec "fontset"
                   (fontset-spec &optional style-variant noerror))
 (declare-function create-fontset-from-x-resource "fontset" ())
@@ -257,7 +252,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
   ;; Create the standard fontset.
   (condition-case err
       (create-fontset-from-fontset-spec w32-standard-fontset-spec t)
-    (error (display-warning 
+    (error (display-warning
            'initialization
            (format "Creation of the standard fontset failed: %s" err)
            :error)))